(*~\Глагол\Отделы\Поле~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ Записка;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: изменяемый многострочный текст
 *============================================================================*)
ИСПОЛЬЗУЕТ 
  Надел,
  Поле,
  Ввод  ИЗ "..\Обмен\",
  Окно  ИЗ "..\Обмен\",
  Текст ИЗ "..\Числа\";
ВИД
  Доступ-=ДОСТУП К Вид;
  Вид-=НАБОР(Надел.Вид)
    текст:ЦЕПЬ[200]
  КОН;

(******************************************************************************)
ЗАДАЧА Отрисовка(записка:Доступ);
УКАЗ
  Надел.Очистить(записка);
  Окно.Цепь(записка.вс,записка.лк,записка.нс,записка.пк,записка.текст)
КОН Отрисовка;

(******************************************************************************)
ЗАДАЧА Приём(надел:Надел.Доступ; посылка+:Ввод.Посылка);
УКАЗ
  ДЛЯ посылка ВИДА
  | Поле.Отрисовка: Отрисовка(надел(Доступ))
  ИНАЧЕ
  КОН
КОН Приём;

(******************************************************************************)
ЗАДАЧА Изменить-(записка:Доступ; текст-:ЦЕПЬ);
УКАЗ
  СПИСАТЬ(текст,записка.текст);
  Отрисовка(записка)
КОН Изменить;

(******************************************************************************)
ЗАДАЧА ИзЧЦел-(записка:Доступ; описание-:ЦЕПЬ; ц1,ц2,ц3,ц4:ЦЕЛ);
УКАЗ
  Текст.ИзЧЦел(описание,ц1,ц2,ц3,ц4,записка.текст);
  Отрисовка(записка)
КОН ИзЧЦел;

(******************************************************************************)
ЗАДАЧА Создать-(верх,лево,строк,колонок:ЦЕЛ; текст-:ЦЕПЬ):Доступ;
ПЕР
  записка:Доступ;
УКАЗ
  СОЗДАТЬ(записка);
  СПИСАТЬ(текст,записка.текст);
  Надел.Подготовить(записка,верх,лево,строк,колонок,{Надел.прГлухой},Приём);
  ВОЗВРАТ записка
КОН Создать;

КОН Записка.